home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / buttons / btntools / sdiform1.frm < prev    next >
Text File  |  1996-01-18  |  23KB  |  644 lines
  1. VERSION 2.00
  2. Begin Form SDIForm1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "BtnTools Example"
  5.    ClientHeight    =   3630
  6.    ClientLeft      =   1905
  7.    ClientTop       =   2310
  8.    ClientWidth     =   6525
  9.    Height          =   4320
  10.    Icon            =   SDIFORM1.FRX:0000
  11.    Left            =   1845
  12.    LinkTopic       =   "SDIForm1"
  13.    ScaleHeight     =   3630
  14.    ScaleWidth      =   6525
  15.    Top             =   1680
  16.    Width           =   6645
  17.    Begin Frame Frame3 
  18.       BackColor       =   &H00C0C0C0&
  19.       Caption         =   "Picture Invert Buttons"
  20.       FontBold        =   0   'False
  21.       FontItalic      =   0   'False
  22.       FontName        =   "MS Sans Serif"
  23.       FontSize        =   8.25
  24.       FontStrikethru  =   0   'False
  25.       FontUnderline   =   0   'False
  26.       Height          =   1515
  27.       Left            =   2700
  28.       TabIndex        =   19
  29.       Top             =   1860
  30.       Width           =   3675
  31.       Begin TOOLBTN ToolBtn8 
  32.          ButtonStyle     =   2  'InvertPicture
  33.          ButtonType      =   0  'Command
  34.          ButtonUp        =   -1  'True
  35.          Caption         =   "ToolBtn6"
  36.          FocusStyle      =   0  'TextFocusRect
  37.          Height          =   975
  38.          Left            =   2520
  39.          PictureAlign    =   7  'Middle CENTRE
  40.          PictureEnabled  =   SDIFORM1.FRX:0302
  41.          PictureXOffset  =   0
  42.          PictureYOffset  =   0
  43.          ShowFocus       =   -1  'True
  44.          TabIndex        =   5
  45.          TextAlign       =   7  'Middle CENTRE
  46.          TextXOffset     =   0
  47.          TextYOffset     =   0
  48.          Tip             =   ""
  49.          TipBackColor    =   &H0000FFFF&
  50.          TipDelay        =   750
  51.          TipForeColor    =   &H00000000&
  52.          Top             =   360
  53.          Width           =   975
  54.       End
  55.       Begin TOOLBTN ToolBtn7 
  56.          ButtonStyle     =   2  'InvertPicture
  57.          ButtonType      =   0  'Command
  58.          ButtonUp        =   -1  'True
  59.          Caption         =   "ToolBtn6"
  60.          FocusStyle      =   0  'TextFocusRect
  61.          Height          =   975
  62.          Left            =   1380
  63.          PictureAlign    =   7  'Middle CENTRE
  64.          PictureEnabled  =   SDIFORM1.FRX:073C
  65.          PictureXOffset  =   0
  66.          PictureYOffset  =   0
  67.          ShowFocus       =   -1  'True
  68.          TabIndex        =   4
  69.          TextAlign       =   7  'Middle CENTRE
  70.          TextXOffset     =   0
  71.          TextYOffset     =   0
  72.          Tip             =   ""
  73.          TipBackColor    =   &H0000FFFF&
  74.          TipDelay        =   750
  75.          TipForeColor    =   &H00000000&
  76.          Top             =   360
  77.          Width           =   975
  78.       End
  79.       Begin TOOLBTN ToolBtn6 
  80.          ButtonStyle     =   2  'InvertPicture
  81.          ButtonType      =   0  'Command
  82.          ButtonUp        =   -1  'True
  83.          Caption         =   "ToolBtn6"
  84.          FocusStyle      =   0  'TextFocusRect
  85.          Height          =   975
  86.          Left            =   240
  87.          PictureAlign    =   7  'Middle CENTRE
  88.          PictureEnabled  =   SDIFORM1.FRX:0B66
  89.          PictureXOffset  =   0
  90.          PictureYOffset  =   0
  91.          ShowFocus       =   -1  'True
  92.          TabIndex        =   3
  93.          TextAlign       =   7  'Middle CENTRE
  94.          TextXOffset     =   0
  95.          TextYOffset     =   0
  96.          Tip             =   ""
  97.          TipBackColor    =   &H0000FFFF&
  98.          TipDelay        =   750
  99.          TipForeColor    =   &H00000000&
  100.          Top             =   360
  101.          Width           =   975
  102.       End
  103.    End
  104.    Begin Frame Frame2 
  105.       BackColor       =   &H00C0C0C0&
  106.       Caption         =   "Windows 95 Style"
  107.       FontBold        =   0   'False
  108.       FontItalic      =   0   'False
  109.       FontName        =   "MS Sans Serif"
  110.       FontSize        =   8.25
  111.       FontStrikethru  =   0   'False
  112.       FontUnderline   =   0   'False
  113.       Height          =   1035
  114.       Left            =   2700
  115.       TabIndex        =   16
  116.       Top             =   600
  117.       Width           =   3675
  118.       Begin TOOLBTN ToolBtn4 
  119.          ButtonStyle     =   1  'Windows 95
  120.          ButtonType      =   0  'Command
  121.          ButtonUp        =   -1  'True
  122.          Caption         =   "Enable Toolbar"
  123.          FocusStyle      =   0  'TextFocusRect
  124.          FontBold        =   0   'False
  125.          FontItalic      =   0   'False
  126.          FontName        =   "MS Sans Serif"
  127.          FontSize        =   8.25
  128.          FontStrikethru  =   0   'False
  129.          FontUnderline   =   0   'False
  130.          Height          =   495
  131.          Left            =   120
  132.          PictureAlign    =   3  'Right TOP
  133.          PictureEnabled  =   SDIFORM1.FRX:1040
  134.          PictureXOffset  =   0
  135.          PictureYOffset  =   0
  136.          ShowFocus       =   0   'False
  137.          TabIndex        =   18
  138.          TabStop         =   0   'False
  139.          TextAlign       =   1  'Left CENTRE
  140.          TextXOffset     =   40
  141.          TextYOffset     =   0
  142.          Tip             =   "Enable"
  143.          TipBackColor    =   &H0000FF00&
  144.          TipDelay        =   750
  145.          TipForeColor    =   &H00000000&
  146.          Top             =   360
  147.          Width           =   1635
  148.       End
  149.       Begin TOOLBTN ToolBtn5 
  150.          ButtonStyle     =   1  'Windows 95
  151.          ButtonType      =   0  'Command
  152.          ButtonUp        =   -1  'True
  153.          Caption         =   "Disable Toolbar"
  154.          FocusStyle      =   0  'TextFocusRect
  155.          FontBold        =   0   'False
  156.          FontItalic      =   0   'False
  157.          FontName        =   "MS Sans Serif"
  158.          FontSize        =   8.25
  159.          FontStrikethru  =   0   'False
  160.          FontUnderline   =   0   'False
  161.          Height          =   495
  162.          Left            =   1860
  163.          PictureAlign    =   3  'Right TOP
  164.          PictureEnabled  =   SDIFORM1.FRX:126A
  165.          PictureXOffset  =   0
  166.          PictureYOffset  =   0
  167.          ShowFocus       =   0   'False
  168.          TabIndex        =   17
  169.          TabStop         =   0   'False
  170.          TextAlign       =   1  'Left CENTRE
  171.          TextXOffset     =   40
  172.          TextYOffset     =   0
  173.          Tip             =   "Disable"
  174.          TipBackColor    =   &H000000FF&
  175.          TipDelay        =   750
  176.          TipForeColor    =   &H00FFFFFF&
  177.          Top             =   360
  178.          Width           =   1635
  179.       End
  180.    End
  181.    Begin Frame Frame1 
  182.       BackColor       =   &H00C0C0C0&
  183.       Caption         =   "Focus Buttons"
  184.       FontBold        =   0   'False
  185.       FontItalic      =   0   'False
  186.       FontName        =   "MS Sans Serif"
  187.       FontSize        =   8.25
  188.       FontStrikethru  =   0   'False
  189.       FontUnderline   =   0   'False
  190.       Height          =   2775
  191.       Left            =   120
  192.       TabIndex        =   15
  193.       Top             =   600
  194.       Width           =   2415
  195.       Begin TOOLBTN ToolBtn1 
  196.          ButtonStyle     =   0  'Windows 3.x
  197.          ButtonType      =   0  'Command
  198.          ButtonUp        =   -1  'True
  199.          Caption         =   "Open File"
  200.          FocusStyle      =   1  'ButtonFocusRect
  201.          Height          =   675
  202.          Left            =   180
  203.          PictureAlign    =   1  'Left CENTRE
  204.          PictureEnabled  =   SDIFORM1.FRX:1428
  205.          PictureXOffset  =   250
  206.          PictureYOffset  =   0
  207.          ShowFocus       =   -1  'True
  208.          TabIndex        =   1
  209.          TextAlign       =   7  'Middle CENTRE
  210.          TextXOffset     =   200
  211.          TextYOffset     =   0
  212.          Tip             =   "Open an existing file"
  213.          TipBackColor    =   &H0000FFFF&
  214.          TipDelay        =   750
  215.          TipForeColor    =   &H00000000&
  216.          Top             =   1140
  217.          Width           =   2055
  218.       End
  219.       Begin TOOLBTN ToolBtn2 
  220.          ButtonStyle     =   0  'Windows 3.x
  221.          ButtonType      =   0  'Command
  222.          ButtonUp        =   -1  'True
  223.          Caption         =   "Save File"
  224.          FocusStyle      =   2  'Text3D
  225.          Height          =   675
  226.          Left            =   180
  227.          PictureAlign    =   1  'Left CENTRE
  228.          PictureEnabled  =   SDIFORM1.FRX:150A
  229.          PictureXOffset  =   250
  230.          PictureYOffset  =   0
  231.          ShowFocus       =   -1  'True
  232.          TabIndex        =   2
  233.          TextAlign       =   7  'Middle CENTRE
  234.          TextXOffset     =   200
  235.          TextYOffset     =   0
  236.          Tip             =   "Save the current file"
  237.          TipBackColor    =   &H0000FFFF&
  238.          TipDelay        =   750
  239.          TipForeColor    =   &H00000000&
  240.          Top             =   1920
  241.          Width           =   2055
  242.       End
  243.       Begin TOOLBTN ToolBtn3 
  244.          ButtonStyle     =   0  'Windows 3.x
  245.          ButtonType      =   0  'Command
  246.          ButtonUp        =   -1  'True
  247.          Caption         =   "New File"
  248.          FocusStyle      =   0  'TextFocusRect
  249.          Height          =   675
  250.          Left            =   180
  251.          PictureAlign    =   1  'Left CENTRE
  252.          PictureEnabled  =   SDIFORM1.FRX:1604
  253.          PictureXOffset  =   250
  254.          PictureYOffset  =   0
  255.          ShowFocus       =   -1  'True
  256.          TabIndex        =   0
  257.          TextAlign       =   7  'Middle CENTRE
  258.          TextXOffset     =   0
  259.          TextYOffset     =   0
  260.          Tip             =   "Create a new file"
  261.          TipBackColor    =   &H0000FFFF&
  262.          TipDelay        =   750
  263.          TipForeColor    =   &H00000000&
  264.          Top             =   360
  265.          Width           =   2055
  266.       End
  267.    End
  268.    Begin TOOLBAR ToolBar1 
  269.       Align           =   1  'Align Top
  270.       Appearance      =   0  '3D
  271.       BackColor       =   &H00C0C0C0&
  272.       Height          =   435
  273.       Left            =   0
  274.       Top             =   0
  275.       Width           =   6525
  276.       Begin TOOLBTN ToolBtnUline 
  277.          ButtonStyle     =   1  'Windows 95
  278.          ButtonType      =   1  'Attribute
  279.          ButtonUp        =   -1  'True
  280.          FocusStyle      =   0  'TextFocusRect
  281.          Height          =   345
  282.          Left            =   3300
  283.          PictureAlign    =   7  'Middle CENTRE
  284.          PictureDisabled =   SDIFORM1.FRX:16F6
  285.          PictureEnabled  =   SDIFORM1.FRX:17D8
  286.          PictureXOffset  =   0
  287.          PictureYOffset  =   0
  288.          ShowFocus       =   0   'False
  289.          TabIndex        =   22
  290.          TabStop         =   0   'False
  291.          TextAlign       =   7  'Middle CENTRE
  292.          TextXOffset     =   0
  293.          TextYOffset     =   0
  294.          Tip             =   "Underline"
  295.          TipBackColor    =   &H00C0FFFF&
  296.          TipDelay        =   750
  297.          TipForeColor    =   &H00000000&
  298.          Top             =   45
  299.          Width           =   360
  300.       End
  301.       Begin TOOLBTN ToolBtnItalic 
  302.          ButtonStyle     =   1  'Windows 95
  303.          ButtonType      =   1  'Attribute
  304.          ButtonUp        =   -1  'True
  305.          FocusStyle      =   0  'TextFocusRect
  306.          Height          =   345
  307.          Left            =   2940
  308.          PictureAlign    =   7  'Middle CENTRE
  309.          PictureDisabled =   SDIFORM1.FRX:18BA
  310.          PictureEnabled  =   SDIFORM1.FRX:198C
  311.          PictureXOffset  =   0
  312.          PictureYOffset  =   0
  313.          ShowFocus       =   0   'False
  314.          TabIndex        =   21
  315.          TabStop         =   0   'False
  316.          TextAlign       =   7  'Middle CENTRE
  317.          TextXOffset     =   0
  318.          TextYOffset     =   0
  319.          Tip             =   "Italic"
  320.          TipBackColor    =   &H00C0FFFF&
  321.          TipDelay        =   750
  322.          TipForeColor    =   &H00000000&
  323.          Top             =   45
  324.          Width           =   360
  325.       End
  326.       Begin TOOLBTN ToolBtnBold 
  327.          ButtonStyle     =   1  'Windows 95
  328.          ButtonType      =   1  'Attribute
  329.          ButtonUp        =   -1  'True
  330.          FocusStyle      =   0  'TextFocusRect
  331.          Height          =   345
  332.          Left            =   2580
  333.          PictureAlign    =   7  'Middle CENTRE
  334.          PictureDisabled =   SDIFORM1.FRX:1A5E
  335.          PictureEnabled  =   SDIFORM1.FRX:1B30
  336.          PictureXOffset  =   0
  337.          PictureYOffset  =   0
  338.          ShowFocus       =   0   'False
  339.          TabIndex        =   20
  340.          TabStop         =   0   'False
  341.          TextAlign       =   7  'Middle CENTRE
  342.          TextXOffset     =   0
  343.          TextYOffset     =   0
  344.          Tip             =   "Bold"
  345.          TipBackColor    =   &H00C0FFFF&
  346.          TipDelay        =   750
  347.          TipForeColor    =   &H00000000&
  348.          Top             =   45
  349.          Width           =   360
  350.       End
  351.       Begin TOOLBTN ToolBtnNew 
  352.          ButtonStyle     =   1  'Windows 95
  353.          ButtonType      =   0  'Command
  354.          ButtonUp        =   -1  'True
  355.          FocusStyle      =   0  'TextFocusRect
  356.          Height          =   345
  357.          Left            =   220
  358.          PictureAlign    =   7  'Middle CENTRE
  359.          PictureDisabled =   SDIFORM1.FRX:1C02
  360.          PictureEnabled  =   SDIFORM1.FRX:1D60
  361.          PictureXOffset  =   0
  362.          PictureYOffset  =   0
  363.          ShowFocus       =   0   'False
  364.          TabIndex        =   6
  365.          TabStop         =   0   'False
  366.          TextAlign       =   7  'Middle CENTRE
  367.          TextXOffset     =   0
  368.          TextYOffset     =   0
  369.          Tip             =   "New"
  370.          TipBackColor    =   &H00C0FFFF&
  371.          TipDelay        =   750
  372.          TipForeColor    =   &H00000000&
  373.          Top             =   45
  374.          Width           =   360
  375.       End
  376.       Begin TOOLBTN ToolBtnOpen 
  377.          ButtonStyle     =   1  'Windows 95
  378.          ButtonType      =   0  'Command
  379.          ButtonUp        =   -1  'True
  380.          FocusStyle      =   0  'TextFocusRect
  381.          Height          =   345
  382.          Left            =   580
  383.          PictureAlign    =   7  'Middle CENTRE
  384.          PictureDisabled =   SDIFORM1.FRX:1E52
  385.          PictureEnabled  =   SDIFORM1.FRX:1F80
  386.          PictureXOffset  =   0
  387.          PictureYOffset  =   0
  388.          ShowFocus       =   0   'False
  389.          TabIndex        =   7
  390.          TabStop         =   0   'False
  391.          TextAlign       =   7  'Middle CENTRE
  392.          TextXOffset     =   0
  393.          TextYOffset     =   0
  394.          Tip             =   "Open"
  395.          TipBackColor    =   &H00C0FFFF&
  396.          TipDelay        =   750
  397.          TipForeColor    =   &H00000000&
  398.          Top             =   45
  399.          Width           =   360
  400.       End
  401.       Begin TOOLBTN ToolBtnSave 
  402.          ButtonStyle     =   1  'Windows 95
  403.          ButtonType      =   0  'Command
  404.          ButtonUp        =   -1  'True
  405.          FocusStyle      =   0  'TextFocusRect
  406.          Height          =   345
  407.          Left            =   940
  408.          PictureAlign    =   7  'Middle CENTRE
  409.          PictureDisabled =   SDIFORM1.FRX:20AE
  410.          PictureEnabled  =   SDIFORM1.FRX:21A8
  411.          PictureXOffset  =   0
  412.          PictureYOffset  =   0
  413.          ShowFocus       =   0   'False
  414.          TabIndex        =   8
  415.          TabStop         =   0   'False
  416.          TextAlign       =   7  'Middle CENTRE
  417.          TextXOffset     =   0
  418.          TextYOffset     =   0
  419.          Tip             =   "Save"
  420.          TipBackColor    =   &H00C0FFFF&
  421.          TipDelay        =   750
  422.          TipForeColor    =   &H00000000&
  423.          Top             =   45
  424.          Width           =   360
  425.       End
  426.       Begin TOOLBTN ToolBtnCut 
  427.          ButtonStyle     =   1  'Windows 95
  428.          ButtonType      =   0  'Command
  429.          ButtonUp        =   -1  'True
  430.          Enabled         =   0   'False
  431.          FocusStyle      =   0  'TextFocusRect
  432.          Height          =   345
  433.          Left            =   1390
  434.          PictureAlign    =   7  'Middle CENTRE
  435.          PictureDisabled =   SDIFORM1.FRX:22A2
  436.          PictureEnabled  =   SDIFORM1.FRX:23A4
  437.          PictureXOffset  =   0
  438.          PictureYOffset  =   0
  439.          ShowFocus       =   0   'False
  440.          TabIndex        =   9
  441.          TabStop         =   0   'False
  442.          TextAlign       =   7  'Middle CENTRE
  443.          TextXOffset     =   0
  444.          TextYOffset     =   0
  445.          Tip             =   "Cut"
  446.          TipBackColor    =   &H00C0FFFF&
  447.          TipDelay        =   750
  448.          TipForeColor    =   &H00000000&
  449.          Top             =   45
  450.          Width           =   360
  451.       End
  452.       Begin TOOLBTN ToolBtnCopy 
  453.          ButtonStyle     =   1  'Windows 95
  454.          ButtonType      =   0  'Command
  455.          ButtonUp        =   -1  'True
  456.          Enabled         =   0   'False
  457.          FocusStyle      =   0  'TextFocusRect
  458.          Height          =   345
  459.          Left            =   1750
  460.          PictureAlign    =   7  'Middle CENTRE
  461.          PictureDisabled =   SDIFORM1.FRX:249E
  462.          PictureEnabled  =   SDIFORM1.FRX:25E4
  463.          PictureXOffset  =   0
  464.          PictureYOffset  =   0
  465.          ShowFocus       =   0   'False
  466.          TabIndex        =   10
  467.          TabStop         =   0   'False
  468.          TextAlign       =   7  'Middle CENTRE
  469.          TextXOffset     =   0
  470.          TextYOffset     =   0
  471.          Tip             =   "Copy"
  472.          TipBackColor    =   &H00C0FFFF&
  473.          TipDelay        =   750
  474.          TipForeColor    =   &H00000000&
  475.          Top             =   45
  476.          Width           =   360
  477.       End
  478.       Begin TOOLBTN ToolBtnPaste 
  479.          ButtonStyle     =   1  'Windows 95
  480.          ButtonType      =   0  'Command
  481.          ButtonUp        =   -1  'True
  482.          Enabled         =   0   'False
  483.          FocusStyle      =   0  'TextFocusRect
  484.          Height          =   345
  485.          Left            =   2110
  486.          PictureAlign    =   7  'Middle CENTRE
  487.          PictureDisabled =   SDIFORM1.FRX:2712
  488.          PictureEnabled  =   SDIFORM1.FRX:2858
  489.          PictureXOffset  =   0
  490.          PictureYOffset  =   0
  491.          ShowFocus       =   0   'False
  492.          TabIndex        =   11
  493.          TabStop         =   0   'False
  494.          TextAlign       =   7  'Middle CENTRE
  495.          TextXOffset     =   0
  496.          TextYOffset     =   0
  497.          Tip             =   "Paste"
  498.          TipBackColor    =   &H00C0FFFF&
  499.          TipDelay        =   750
  500.          TipForeColor    =   &H00000000&
  501.          Top             =   45
  502.          Width           =   360
  503.       End
  504.       Begin TOOLBTN ToolBtnFind 
  505.          ButtonStyle     =   1  'Windows 95
  506.          ButtonType      =   0  'Command
  507.          ButtonUp        =   -1  'True
  508.          FocusStyle      =   0  'TextFocusRect
  509.          Height          =   345
  510.          Left            =   3765
  511.          PictureAlign    =   7  'Middle CENTRE
  512.          PictureDisabled =   SDIFORM1.FRX:2992
  513.          PictureEnabled  =   SDIFORM1.FRX:2ACC
  514.          PictureXOffset  =   0
  515.          PictureYOffset  =   0
  516.          ShowFocus       =   0   'False
  517.          TabIndex        =   12
  518.          TabStop         =   0   'False
  519.          TextAlign       =   7  'Middle CENTRE
  520.          TextXOffset     =   0
  521.          TextYOffset     =   0
  522.          Tip             =   "Find"
  523.          TipBackColor    =   &H00C0FFFF&
  524.          TipDelay        =   750
  525.          TipForeColor    =   &H00000000&
  526.          Top             =   45
  527.          Width           =   360
  528.       End
  529.       Begin TOOLBTN ToolBtnDelete 
  530.          ButtonStyle     =   1  'Windows 95
  531.          ButtonType      =   0  'Command
  532.          ButtonUp        =   -1  'True
  533.          FocusStyle      =   0  'TextFocusRect
  534.          Height          =   345
  535.          Left            =   4125
  536.          PictureAlign    =   7  'Middle CENTRE
  537.          PictureDisabled =   SDIFORM1.FRX:2BFA
  538.          PictureEnabled  =   SDIFORM1.FRX:2CFC
  539.          PictureXOffset  =   0
  540.          PictureYOffset  =   0
  541.          ShowFocus       =   0   'False
  542.          TabIndex        =   13
  543.          TabStop         =   0   'False
  544.          TextAlign       =   7  'Middle CENTRE
  545.          TextXOffset     =   0
  546.          TextYOffset     =   0
  547.          Tip             =   "Delete"
  548.          TipBackColor    =   &H00C0FFFF&
  549.          TipDelay        =   750
  550.          TipForeColor    =   &H00000000&
  551.          Top             =   45
  552.          Width           =   360
  553.       End
  554.       Begin TOOLBTN ToolBtnHelp 
  555.          ButtonStyle     =   1  'Windows 95
  556.          ButtonType      =   0  'Command
  557.          ButtonUp        =   -1  'True
  558.          FocusStyle      =   0  'TextFocusRect
  559.          Height          =   345
  560.          Left            =   4485
  561.          PictureAlign    =   7  'Middle CENTRE
  562.          PictureDisabled =   SDIFORM1.FRX:2DFE
  563.          PictureEnabled  =   SDIFORM1.FRX:2F38
  564.          PictureXOffset  =   0
  565.          PictureYOffset  =   0
  566.          ShowFocus       =   0   'False
  567.          TabIndex        =   14
  568.          TabStop         =   0   'False
  569.          TextAlign       =   7  'Middle CENTRE
  570.          TextXOffset     =   0
  571.          TextYOffset     =   0
  572.          Tip             =   "Help"
  573.          TipBackColor    =   &H00C0FFFF&
  574.          TipDelay        =   750
  575.          TipForeColor    =   &H00000000&
  576.          Top             =   45
  577.          Width           =   360
  578.       End
  579.    End
  580.    Begin Menu mnuFile 
  581.       Caption         =   "&File"
  582.       Begin Menu mnuExit 
  583.          Caption         =   "E&xit"
  584.       End
  585.    End
  586. End
  587.  
  588. Sub Form_Unload (Cancel As Integer)
  589.  
  590.     End
  591.    
  592. End Sub
  593.  
  594. Sub mnuExit_Click ()
  595.  
  596.     'Close Application
  597.     Unload Me
  598.  
  599. End Sub
  600.  
  601. Sub ToolBtn4_Click ()
  602.  
  603. Dim state As Integer
  604.  
  605.     state = True
  606.  
  607.     ToolBtnNew.Enabled = state
  608.     ToolBtnOpen.Enabled = state
  609.     ToolBtnSave.Enabled = state
  610.     ToolBtnCut.Enabled = state
  611.     ToolBtnCopy.Enabled = state
  612.     ToolBtnPaste.Enabled = state
  613.     ToolBtnBold.Enabled = state
  614.     ToolBtnItalic.Enabled = state
  615.     ToolBtnUline.Enabled = state
  616.     ToolBtnFind.Enabled = state
  617.     ToolBtnDelete.Enabled = state
  618.     ToolBtnHelp.Enabled = state
  619.  
  620. End Sub
  621.  
  622. Sub ToolBtn5_Click ()
  623.  
  624. Dim state As Integer
  625.  
  626.     state = False
  627.  
  628.     ToolBtnNew.Enabled = state
  629.     ToolBtnOpen.Enabled = state
  630.     ToolBtnSave.Enabled = state
  631.     ToolBtnCut.Enabled = state
  632.     ToolBtnCopy.Enabled = state
  633.     ToolBtnPaste.Enabled = state
  634.     ToolBtnBold.Enabled = state
  635.     ToolBtnItalic.Enabled = state
  636.     ToolBtnUline.Enabled = state
  637.     ToolBtnFind.Enabled = state
  638.     ToolBtnDelete.Enabled = state
  639.     ToolBtnHelp.Enabled = state
  640.  
  641.  
  642. End Sub
  643.  
  644.